home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db2ios.arc / BACKORDR.SIG < prev    next >
Encoding:
Text File  |  1983-01-04  |  1.4 KB  |  55 lines
  1. * BACKORDR.SIG 08/18/83
  2. * if you want printer codes - add them here
  3. ERASE
  4. GOTO TOP
  5. STORE 0 TO pageno
  6. STORE t TO more
  7. STORE 0 TO TOTAL
  8. STORE 0 TO AMOUNT
  9. SET MARGIN TO 0
  10. DO WHILE more
  11. STORE pageno + 1 TO pageno
  12. STORE 7 TO lineno
  13. ERASE
  14. EJECT
  15. ? ' '
  16. ? '======================SIG/M BACK ORDERS ============================='
  17. ? ' '
  18. ? '   AS OF  ' + date() + '                       PAGE: ' + str(pageno,3)
  19. ? ' '
  20. ? '     LAST NAME             ENTERED      SHIPPED    BACKORDER SHIPPED   AMOUNT'
  21. ? ' '
  22. DO WHILE lineno <55
  23. IF  COMP = 'N'
  24. STORE total + 1 TO TOTAL
  25. STORE amount + amt TO amount
  26. ? '      '+ lname +' ' + entered + '     '+ shipped +'   ';
  27. + bo:ship + bo2:ship +' '+ STR(amt,8,2)
  28. ? 'ORDERED: ' + TRIM(vol1)
  29. ? 'BACK ORDERED: ' +TRIM(bo) + '            ' + 'CATALOG: ' + ' ' + catalog
  30. ? ' '
  31. STORE lineno + 6 to lineno
  32. SKIP
  33. IF EOF
  34. STORE 60 TO lineno
  35. STORE f TO more
  36. ENDIF EOF
  37. ELSE
  38. SKIP
  39. IF EOF
  40. STORE 60 TO lineno
  41. STORE f TO more
  42. ENDIF EOF
  43. ENDIF COMP= 'N'
  44. ENDDO while lineno > 55
  45. ENDDO more
  46. ? '----------------------------------------------------------------------------'
  47. ? ' '
  48. ? '      TOTALS:         NUMBER OF ORDERS WITH BACK ORDERS: ' + STR(total,4,0)
  49. ? '                      DOLLAR AMOUNT OF BACK ORDERS: ' + STR(amount,8,2)
  50. EJECT
  51. SET PRINT OFF
  52. RELEASE ALL
  53. STORE t TO more
  54. STORE t TO first
  55.